home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 010a / lamenu10.zip / LAMENNET.BC < prev    next >
Text File  |  1991-01-26  |  17KB  |  962 lines
  1. let %!z = %1.dsp
  2. :begin
  3. read_file %!x %!z
  4. let %!j = %!x
  5. echo \\27[0m\\27[44;37m
  6. cls
  7. read_file %!x
  8. let %!a = %!x
  9. read_file %!x
  10. let %!b = %!x
  11. read_file %!x
  12. let %!c = %!x
  13. read_file %!x
  14. let %!e = %!x
  15. read_file %!x
  16. let %!f = %!x
  17. read_file %!x
  18. let %!g = %!x
  19. read_file %!x
  20. let %!i = %!x
  21. read_file %!x
  22. let %!k = %!x
  23. read_file %!x
  24. let %!l = %!x
  25. read_file %!x
  26. let %!o = %!x
  27. read_file %!x
  28. let %!r = %!x
  29. read_file %!x
  30. let %!s = %!x
  31. read_file %!x
  32. let %!d = %!x
  33. read_file %!x
  34. let %!m = %!x
  35. read_file %!x
  36. let %!w = %!x
  37. read_file %!x
  38. let %!y = %!x
  39. :begin_1
  40. gosub m_display
  41. if %RC% == 1 goto la2
  42. if %RC% == 2 goto ra1
  43. if %RC% == 3 goto la4
  44. if %RC% == 4 goto ra3
  45. if %RC% == 5 goto la6
  46. if %RC% == 6 goto ra5
  47. if %RC% == 7 goto la8
  48. if %RC% == 8 goto ra7
  49. if %RC% == 9 goto la10
  50. if %RC% == 10 goto ra9
  51. if %RC% == 11 goto la12
  52. if %RC% == 12 goto ra11
  53. goto start
  54. :m_display
  55. cls
  56. locate 1 2
  57. echonolf La Menu System v1.0
  58. lmdt
  59. gosub time
  60. locate 2 4
  61. echo By Bill Mezian
  62. locate 3 1
  63. echonolf ╞═══════════════════════════════════════
  64. echo ═══════════════════════════════════════╡
  65. let %!n = %!j
  66. string_length %!n
  67. sub %!n 80
  68. abs %!n
  69. div %!n 2
  70. locate 5 %!n
  71. echo %!j
  72. locate 8 11
  73. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  74. locate 8 45
  75. echo \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  76. locate 10 11
  77. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  78. locate 10 45
  79. echo \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  80. locate 12 11
  81. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  82. locate 12 45
  83. echo \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  84. locate 14 11
  85. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  86. locate 14 45
  87. echo \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  88. locate 16 11
  89. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  90. locate 16 45
  91. echo \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  92. locate 18 11
  93. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  94. locate 18 45
  95. echo \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  96. locate 22 12
  97. echonolf \\27[44;37mUse Arrow Keys \\24\\25 to\\0
  98. echo \\27[46;30mHighlight Selection\\27[44;37m and Press Enter
  99. locate 25 2
  100. echonolf \\27[46;30m[F1]\\27[44;33m %!d
  101. locate 25 22
  102. echonolf \\27[46;30m[F2]\\27[44;33m %!m
  103. locate 25 42
  104. echonolf \\27[46;30m[F3]\\27[44;33m %!w
  105. locate 25 61
  106. echonolf \\27[46;30m[F4]\\27[44;33m %!y\\27[44;37m
  107. return
  108. :start
  109. locate 8 11
  110. echonolf \\27[46;30m══* %!a\\27[44;37m
  111. locate 8 14
  112. getkey
  113. error_level %!q
  114. gosub 1_test
  115. goto start
  116. :ua1
  117. gosub time
  118. locate 8 11
  119. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  120. locate 18 45
  121. echo \\27[46;30m══* %!s\\27[44;37m
  122. locate 18 48
  123. getkey
  124. error_level %!q
  125. gosub 12_test
  126. goto ua1
  127. :da1
  128. gosub time
  129. locate 8 11
  130. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  131. locate 10 11
  132. echonolf \\27[46;30m══* %!c\\27[44;37m
  133. locate 10 14
  134. getkey
  135. error_level %!q
  136. gosub 3_test
  137. goto da1
  138. :ra1
  139. gosub time
  140. locate 8 11
  141. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  142. locate 8 45
  143. echo \\27[46;30m══* %!b\\27[44;37m
  144. locate 8 48
  145. getkey
  146. error_level %!q
  147. gosub 2_test
  148. goto ra1
  149. :la1
  150. gosub time
  151. locate 8 11
  152. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  153. locate 18 11
  154. echonolf \\27[46;30m══* %!r\\27[44;37m
  155. locate 18 14
  156. getkey
  157. error_level %!q
  158. gosub 11_test
  159. goto la1
  160. :ua2
  161. gosub time
  162. locate 8 45
  163. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  164. locate 18 11
  165. echonolf \\27[46;30m══* %!r\\27[44;37m
  166. locate 18 14
  167. getkey
  168. error_level %!q
  169. gosub 11_test
  170. goto ua2
  171. :da2
  172. gosub time
  173. locate 8 45
  174. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  175. locate 10 45
  176. echonolf \\27[46;30m══* %!e\\27[44;37m
  177. locate 10 48
  178. getkey
  179. error_level %!q
  180. gosub 4_test
  181. goto da2
  182. :ra2
  183. gosub time
  184. locate 8 45
  185. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  186. locate 10 11
  187. echonolf \\27[46;30m══* %!c\\27[44;37m
  188. locate 10 14
  189. getkey
  190. error_level %!q
  191. gosub 3_test
  192. goto ra2
  193. :la2
  194. gosub time
  195. locate 8 45
  196. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  197. locate 8 11
  198. echonolf \\27[46;30m══* %!a\\27[44;37m
  199. locate 8 14
  200. getkey
  201. error_level %!q
  202. gosub 1_test
  203. goto la2
  204. :ua3
  205. gosub time
  206. locate 10 11
  207. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  208. locate 8 11
  209. echonolf \\27[46;30m══* %!a\\27[44;37m
  210. locate 8 14
  211. getkey
  212. error_level %!q
  213. gosub 1_test
  214. goto ua3
  215. :da3
  216. gosub time
  217. locate 10 11
  218. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  219. locate 12 11
  220. echonolf \\27[46;30m══* %!f\\27[44;37m
  221. locate 12 14
  222. getkey
  223. error_level %!q
  224. gosub 5_test
  225. goto da3
  226. :ra3
  227. gosub time
  228. locate 10 11
  229. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  230. locate 10 45
  231. echo \\27[46;30m══* %!e\\27[44;37m
  232. locate 10 48
  233. getkey
  234. error_level %!q
  235. gosub 4_test
  236. goto ra3
  237. :la3
  238. gosub time
  239. locate 10 11
  240. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  241. locate 8 45
  242. echonolf \\27[46;30m══* %!b\\27[44;37m
  243. locate 8 48
  244. getkey
  245. error_level %!q
  246. gosub 2_test
  247. goto la3
  248. :ua4
  249. gosub time
  250. locate 10 45
  251. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  252. locate 8 45
  253. echo \\27[46;30m══* %!b\\27[44;37m
  254. locate 8 48
  255. getkey
  256. error_level %!q
  257. gosub 2_test
  258. goto ua4
  259. :da4
  260. gosub time
  261. locate 10 45
  262. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  263. locate 12 45
  264. echonolf \\27[46;30m══* %!g\\27[44;37m
  265. locate 12 48
  266. getkey
  267. error_level %!q
  268. gosub 6_test
  269. goto da4
  270. :ra4
  271. gosub time
  272. locate 10 45
  273. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  274. locate 12 11
  275. echonolf \\27[46;30m══* %!f\\27[44;37m
  276. locate 12 14
  277. getkey
  278. error_level %!q
  279. gosub 5_test
  280. goto ra4
  281. :la4
  282. gosub time
  283. locate 10 45
  284. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  285. locate 10 11
  286. echonolf \\27[46;30m══* %!c\\27[44;37m
  287. locate 10 14
  288. getkey
  289. error_level %!q
  290. gosub 3_test
  291. goto la4
  292. :ua5
  293. gosub time
  294. locate 12 11
  295. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  296. locate 10 11
  297. echonolf \\27[46;30m══* %!c\\27[44;37m
  298. locate 10 14
  299. getkey
  300. error_level %!q
  301. gosub 3_test
  302. goto ua5
  303. :da5
  304. gosub time
  305. locate 12 11
  306. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  307. locate 14 11
  308. echonolf \\27[46;30m══* %!i\\27[44;37m
  309. locate 14 14
  310. getkey
  311. error_level %!q
  312. gosub 7_test
  313. goto da5
  314. :ra5
  315. gosub time
  316. locate 12 11
  317. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  318. locate 12 45
  319. echonolf \\27[46;30m══* %!g\\27[44;37m
  320. locate 12 48
  321. getkey
  322. error_level %!q
  323. gosub 6_test
  324. goto ra5
  325. :la5
  326. gosub time
  327. locate 12 11
  328. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  329. locate 10 45
  330. echonolf \\27[46;30m══* %!e\\27[44;37m
  331. locate 10 48
  332. getkey
  333. error_level %!q
  334. gosub 4_test
  335. goto la5
  336. :ua6
  337. gosub time
  338. locate 12 45
  339. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  340. locate 10 45
  341. echonolf \\27[46;30m══* %!e\\27[44;37m
  342. locate 10 48
  343. getkey
  344. error_level %!q
  345. gosub 4_test
  346. goto ua6
  347. :da6
  348. gosub time
  349. locate 12 45
  350. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  351. locate 14 45
  352. echonolf \\27[46;30m══* %!k\\27[44;37m
  353. locate 14 48
  354. getkey
  355. error_level %!q
  356. gosub 8_test
  357. goto da6
  358. :ra6
  359. gosub time
  360. locate 12 45
  361. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  362. locate 14 11
  363. echonolf \\27[46;30m══* %!i\\27[44;37m
  364. locate 14 14
  365. getkey
  366. error_level %!q
  367. gosub 7_test
  368. goto ra6
  369. :la6
  370. gosub time
  371. locate 12 45
  372. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  373. locate 12 11
  374. echonolf \\27[46;30m══* %!f\\27[44;37m
  375. locate 12 14
  376. getkey
  377. error_level %!q
  378. gosub 5_test
  379. goto la6
  380. :ua7
  381. gosub time
  382. locate 14 11
  383. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  384. locate 12 11
  385. echonolf \\27[46;30m══* %!f\\27[44;37m
  386. locate 12 14
  387. getkey
  388. error_level %!q
  389. gosub 5_test
  390. goto ua7
  391. :da7
  392. gosub time
  393. locate 14 11
  394. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  395. locate 16 11
  396. echonolf \\27[46;30m══* %!l\\27[44;37m
  397. locate 16 14
  398. getkey
  399. error_level %!q
  400. gosub 9_test
  401. goto da7
  402. :ra7
  403. gosub time
  404. locate 14 11
  405. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  406. locate 14 45
  407. echonolf \\27[46;30m══* %!k\\27[44;37m
  408. locate 14 48
  409. getkey
  410. error_level %!q
  411. gosub 8_test
  412. goto ra7
  413. :la7
  414. gosub time
  415. locate 14 11
  416. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  417. locate 12 45
  418. echonolf \\27[46;30m══* %!g\\27[44;37m
  419. locate 12 48
  420. getkey
  421. error_level %!q
  422. gosub 6_test
  423. goto la7
  424. :ua8
  425. gosub time
  426. locate 14 45
  427. echonolf \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  428. locate 12 45
  429. echonolf \\27[46;30m══* %!g\\27[44;37m
  430. locate 12 48
  431. getkey
  432. error_level %!q
  433. gosub 6_test
  434. goto ua8
  435. :da8
  436. gosub time
  437. locate 14 45
  438. echonolf \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  439. locate 16 45
  440. echonolf \\27[46;30m══* %!o\\27[44;37m
  441. locate 16 48
  442. getkey
  443. error_level %!q
  444. gosub 10_test
  445. goto da8
  446. :ra8
  447. gosub time
  448. locate 14 45
  449. echonolf \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  450. locate 16 11
  451. echonolf \\27[46;30m══* %!l\\27[44;37m
  452. locate 16 14
  453. getkey
  454. error_level %!q
  455. gosub 9_test
  456. goto ra8
  457. :la8
  458. gosub time
  459. locate 14 45
  460. echonolf \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  461. locate 14 11
  462. echonolf \\27[46;30m══* %!i\\27[44;37m
  463. locate 14 14
  464. getkey
  465. error_level %!q
  466. gosub 7_test
  467. goto la8
  468. :ua9
  469. gosub time
  470. locate 16 11
  471. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  472. locate 14 11
  473. echonolf \\27[46;30m══* %!i\\27[44;37m
  474. locate 14 14
  475. getkey
  476. error_level %!q
  477. gosub 7_test
  478. goto ua9
  479. :da9
  480. gosub time
  481. locate 16 11
  482. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  483. locate 18 11
  484. echonolf \\27[46;30m══* %!r\\27[44;37m
  485. locate 18 14
  486. getkey
  487. error_level %!q
  488. gosub 11_test
  489. goto da9
  490. :ra9
  491. gosub time
  492. locate 16 11
  493. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  494. locate 16 45
  495. echonolf \\27[46;30m══* %!o\\27[44;37m
  496. locate 16 48
  497. getkey
  498. error_level %!q
  499. gosub 10_test
  500. goto ra9
  501. :la9
  502. gosub time
  503. locate 16 11
  504. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  505. locate 14 45
  506. echonolf \\27[46;30m══* %!k\\27[44;37m
  507. locate 14 48
  508. getkey
  509. error_level %!q
  510. gosub 8_test
  511. goto la9
  512. :ua10
  513. gosub time
  514. locate 16 45
  515. echonolf \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  516. locate 14 45
  517. echonolf \\27[46;30m══* %!k\\27[44;37m
  518. locate 14 48
  519. getkey
  520. error_level %!q
  521. gosub 8_test
  522. goto ua10
  523. :da10
  524. gosub time
  525. locate 16 45
  526. echonolf \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  527. locate 18 45
  528. echonolf \\27[46;30m══* %!s\\27[44;37m
  529. locate 18 48
  530. getkey
  531. error_level %!q
  532. gosub 12_test
  533. goto da10
  534. :ra10
  535. gosub time
  536. locate 16 45
  537. echonolf \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  538. locate 18 11
  539. echonolf \\27[46;30m══* %!r\\27[44;37m
  540. locate 18 14
  541. getkey
  542. error_level %!q
  543. gosub 11_test
  544. goto ra10
  545. :la10
  546. gosub time
  547. locate 16 45
  548. echonolf \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  549. locate 16 11
  550. echonolf \\27[46;30m══* %!l\\27[44;37m
  551. locate 16 14
  552. getkey
  553. error_level %!q
  554. gosub 9_test
  555. goto la10
  556. :ua11
  557. gosub time
  558. locate 18 11
  559. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  560. locate 16 11
  561. echonolf \\27[46;30m══* %!l\\27[44;37m
  562. locate 16 14
  563. getkey
  564. error_level %!q
  565. gosub 9_test
  566. goto ua11
  567. :da11
  568. gosub time
  569. locate 18 11
  570. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  571. locate 8 45
  572. echonolf \\27[46;30m══* %!b\\27[44;37m
  573. locate 8 48
  574. getkey
  575. error_level %!q
  576. gosub 2_test
  577. goto da11
  578. :ra11
  579. gosub time
  580. locate 18 11
  581. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  582. locate 18 45
  583. echonolf \\27[46;30m══* %!s\\27[44;37m
  584. locate 18 48
  585. getkey
  586. error_level %!q
  587. gosub 12_test
  588. goto ra11
  589. :la11
  590. gosub time
  591. locate 18 11
  592. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  593. locate 16 45
  594. echonolf \\27[46;30m══* %!o\\27[44;37m
  595. locate 16 48
  596. getkey
  597. error_level %!q
  598. gosub 10_test
  599. goto la11
  600. :ua12
  601. gosub time
  602. locate 18 45
  603. echonolf \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  604. locate 16 45
  605. echonolf \\27[46;30m══* %!o\\27[44;37m
  606. locate 16 48
  607. getkey
  608. error_level %!q
  609. gosub 10_test
  610. goto ua12
  611. :da12
  612. gosub time
  613. locate 18 45
  614. echonolf \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  615. locate 8 11
  616. echonolf \\27[46;30m══* %!a\\27[44;37m
  617. locate 8 14
  618. getkey
  619. error_level %!q
  620. gosub 1_test
  621. goto da12
  622. :ra12
  623. gosub time
  624. locate 18 45
  625. echonolf \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  626. locate 8 45
  627. echonolf \\27[46;30m══* %!b\\27[44;37m
  628. locate 8 48
  629. getkey
  630. error_level %!q
  631. gosub 2_test
  632. goto ra12
  633. :la12
  634. gosub time
  635. locate 18 45
  636. echonolf \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  637. locate 18 11
  638. echonolf \\27[46;30m══* %!r\\27[44;37m
  639. locate 18 14
  640. getkey
  641. error_level %!q
  642. gosub 11_test
  643. goto la12
  644. :1_test
  645. if %!q = 18432 goto ua1
  646. if %!q = 20480 goto da1
  647. if %!q = 19712 goto ra1
  648. if %!q = 19200 goto la1
  649. if %!q = 27 goto end
  650. set rc=1
  651. if %!q = 15104 goto f1
  652. if %!q = 15360 goto f2
  653. if %!q = 15616 goto f3
  654. if %!q = 15872 goto f4
  655. if %!q = 13 goto 1
  656. gosub time
  657. return
  658. :2_test
  659. if %!q = 18432 goto ua2
  660. if %!q = 20480 goto da2
  661. if %!q = 19712 goto ra2
  662. if %!q = 19200 goto la2
  663. if %!q = 27 goto end
  664. set rc=2
  665. if %!q = 15104 goto f1
  666. if %!q = 15360 goto f2
  667. if %!q = 15616 goto f3
  668. if %!q = 15872 goto f4
  669. if %!q = 13 goto 2
  670. gosub time
  671. return
  672. :3_test
  673. if %!q = 18432 goto ua3
  674. if %!q = 20480 goto da3
  675. if %!q = 19712 goto ra3
  676. if %!q = 19200 goto la3
  677. if %!q = 27 goto end
  678. set rc=3
  679. if %!q = 15104 goto f1
  680. if %!q = 15360 goto f2
  681. if %!q = 15616 goto f3
  682. if %!q = 15872 goto f4
  683. if %!q = 13 goto 3
  684. gosub time
  685. return
  686. :4_test
  687. if %!q = 18432 goto ua4
  688. if %!q = 20480 goto da4
  689. if %!q = 19712 goto ra4
  690. if %!q = 19200 goto la4
  691. if %!q = 27 goto end
  692. set rc=4
  693. if %!q = 15104 goto f1
  694. if %!q = 15360 goto f2
  695. if %!q = 15616 goto f3
  696. if %!q = 15872 goto f4
  697. if %!q = 13 goto 4
  698. gosub time
  699. return
  700. :5_test
  701. if %!q = 18432 goto ua5
  702. if %!q = 20480 goto da5
  703. if %!q = 19712 goto ra5
  704. if %!q = 19200 goto la5
  705. if %!q = 27 goto end
  706. set rc=5
  707. if %!q = 15104 goto f1
  708. if %!q = 15360 goto f2
  709. if %!q = 15616 goto f3
  710. if %!q = 15872 goto f4
  711. if %!q = 13 goto 5
  712. gosub time
  713. return
  714. :6_test
  715. if %!q = 18432 goto ua6
  716. if %!q = 20480 goto da6
  717. if %!q = 19712 goto ra6
  718. if %!q = 19200 goto la6
  719. if %!q = 27 goto end
  720. set rc=6
  721. if %!q = 15104 goto f1
  722. if %!q = 15360 goto f2
  723. if %!q = 15616 goto f3
  724. if %!q = 15872 goto f4
  725. if %!q = 13 goto 6
  726. gosub time
  727. return
  728. :7_test
  729. if %!q = 18432 goto ua7
  730. if %!q = 20480 goto da7
  731. if %!q = 19712 goto ra7
  732. if %!q = 19200 goto la7
  733. if %!q = 27 goto end
  734. set rc=7
  735. if %!q = 15104 goto f1
  736. if %!q = 15360 goto f2
  737. if %!q = 15616 goto f3
  738. if %!q = 15872 goto f4
  739. if %!q = 13 goto 7
  740. gosub time
  741. return
  742. :8_test
  743. if %!q = 18432 goto ua8
  744. if %!q = 20480 goto da8
  745. if %!q = 19712 goto ra8
  746. if %!q = 19200 goto la8
  747. if %!q = 27 goto end
  748. set rc=8
  749. if %!q = 15104 goto f1
  750. if %!q = 15360 goto f2
  751. if %!q = 15616 goto f3
  752. if %!q = 15872 goto f4
  753. if %!q = 13 goto 8
  754. gosub time
  755. return
  756. :9_test
  757. if %!q = 18432 goto ua9
  758. if %!q = 20480 goto da9
  759. if %!q = 19712 goto ra9
  760. if %!q = 19200 goto la9
  761. if %!q = 27 goto end
  762. set rc=9
  763. if %!q = 15104 goto f1
  764. if %!q = 15360 goto f2
  765. if %!q = 15616 goto f3
  766. if %!q = 15872 goto f4
  767. if %!q = 13 goto 9
  768. gosub time
  769. return
  770. :10_test
  771. if %!q = 18432 goto ua10
  772. if %!q = 20480 goto da10
  773. if %!q = 19712 goto ra10
  774. if %!q = 19200 goto la10
  775. if %!q = 27 goto end
  776. set rc=10
  777. if %!q = 15104 goto f1
  778. if %!q = 15360 goto f2
  779. if %!q = 15616 goto f3
  780. if %!q = 15872 goto f4
  781. if %!q = 13 goto 10
  782. gosub time
  783. return
  784. :11_test
  785. if %!q = 18432 goto ua11
  786. if %!q = 20480 goto da11
  787. if %!q = 19712 goto ra11
  788. if %!q = 19200 goto la11
  789. if %!q = 27 goto end
  790. set rc=11
  791. if %!q = 15104 goto f1
  792. if %!q = 15360 goto f2
  793. if %!q = 15616 goto f3
  794. if %!q = 15872 goto f4
  795. if %!q = 13 goto 11
  796. gosub time
  797. return
  798. :12_test
  799. if %!q = 18432 goto ua12
  800. if %!q = 20480 goto da12
  801. if %!q = 19712 goto ra12
  802. if %!q = 19200 goto la12
  803. if %!q = 27 goto end
  804. set rc=12
  805. if %!q = 15104 goto f1
  806. if %!q = 15360 goto f2
  807. if %!q = 15616 goto f3
  808. if %!q = 15872 goto f4
  809. if %!q = 13 goto 12
  810. gosub time
  811. return
  812. :time
  813. hour_hour
  814. error_level %!h
  815. minute_minute
  816. error_level %!t
  817. let %!n = %!h
  818. if %!t == 0 let %!t = 00
  819. if %!t == 1 let %!t = 01
  820. if %!t == 2 let %!t = 02
  821. if %!t == 3 let %!t = 03
  822. if %!t == 4 let %!t = 04
  823. if %!t == 5 let %!t = 05
  824. if %!t == 6 let %!t = 06
  825. if %!t == 7 let %!t = 07
  826. if %!t == 8 let %!t = 08
  827. if %!t == 9 let %!t = 09
  828. let %!p = AM
  829. GT %!n 12
  830. if errorlevel 1 let %!p = PM
  831. if %!h == 0 let %!p = AM
  832. if %!p == PM sub %!h 12
  833. if %!h == 12 let %!p = PM
  834. if %!h == 0 let %!h = 12
  835. locate 1 68
  836. echonolf \\27[44;37m%!h\\58
  837. echonolf %!t  %!p\\0
  838. echo
  839. return
  840. :1
  841. cls
  842. if %!a = * goto begin
  843. locate 25 5
  844. echo Loading %!a - Please Wait
  845. SET LM=1
  846. exit
  847. :2
  848. cls
  849. if %!b = * goto begin
  850. locate 25 5
  851. echo Loading %!b - Please Wait
  852. SET LM=2
  853. exit
  854. :3
  855. cls
  856. if %!c = * goto begin
  857. locate 25 5
  858. echo Loading %!c - Please Wait
  859. SET LM=3
  860. exit
  861. :4
  862. cls
  863. if %!e = * goto begin
  864. locate 25 5
  865. echo Loading %!e - Please Wait
  866. SET LM=4
  867. exit
  868. :5
  869. cls
  870. if %!f = * goto begin
  871. locate 25 5
  872. echo Loading %!f - Please Wait
  873. SET LM=5
  874. exit
  875. :6
  876. cls
  877. if %!g = * goto begin
  878. locate 25 5
  879. echo Loading %!g - Please Wait
  880. SET LM=6
  881. exit
  882. :7
  883. cls
  884. if %!i = * goto begin
  885. locate 25 5
  886. echo Loading %!i - Please Wait
  887. SET LM=7
  888. exit
  889. :8
  890. cls
  891. if %!k = * goto begin
  892. locate 25 5
  893. echo Loading %!k - Please Wait
  894. SET LM=8
  895. exit
  896. :9
  897. cls
  898. if %!l = * goto begin
  899. locate 25 5
  900. echo Loading %!l - Please Wait
  901. SET LM=9
  902. exit
  903. :10
  904. cls
  905. if %!o = * goto begin
  906. locate 25 5
  907. echo Loading %!o - Please Wait
  908. SET LM=10
  909. exit
  910. :11
  911. cls
  912. if %!r = * goto begin
  913. locate 25 5
  914. echo Loading %!r - Please Wait
  915. SET LM=11
  916. exit
  917. :12
  918. cls
  919. if %!s = * goto begin
  920. locate 25 5
  921. echo Loading %!s - Please Wait
  922. SET LM=12
  923. exit
  924. :f1
  925. cls
  926. if %!d = * goto begin
  927. locate 25 5
  928. echo Loading %!d - Please Wait
  929. SET LM=F1
  930. exit
  931. :f2
  932. cls
  933. if %!m = * goto begin
  934. locate 25 5
  935. echo Loading %!m - Please Wait
  936. SET LM=F2
  937. exit
  938. :f3
  939. cls
  940. if %!w = * goto begin
  941. locate 25 5
  942. echo Loading %!w - Please Wait
  943. SET LM=F3
  944. exit
  945. :f4
  946. cls
  947. if %!y = * goto begin
  948. locate 25 5
  949. echo Loading %!y - Please Wait
  950. SET LM=F4
  951. exit
  952. :no_file
  953. cls
  954. locate 25 1
  955. echonolf File Not Found -\\0
  956. pausenolf
  957. goto begin_1
  958. :end
  959. cls
  960. set LM=EX
  961. exit
  962.